home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_14625.txt < prev    next >
Text File  |  1990-08-14  |  14KB  |  560 lines

  1. -- background: 14625 from stack: in
  2. -- bmap block id: 2337
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: CSL Scheduler
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   installMenuBar 1150,1151,1152,1153,1154,1155,1156,-200,-201,-202,-203
  9. end openBackground
  10.  
  11. on doMenu menuItem
  12.   lock screen
  13.   if menuItem contains "About" then
  14.     resetBackground
  15.     restoreMenuBar
  16.     go to card short name of this background of background "About"
  17.     unlock screen with zoom close
  18.   else if menuItem is "Home" then
  19.     resetBackground
  20.     restoreMenuBar
  21.     go home
  22.   else if menuItem contains "Quit" then
  23.     resetBackground
  24.     restoreMenuBar false
  25.     go to card "Mac School¬Æ Shell"
  26.     unlock screen with zoom close
  27.   else if menuItem is "School Timetable" then -- View Menu
  28.     push card
  29.     go to card "School Timetable" of this background
  30.   else if menuItem is "Student Requests" then -- Edit Menu
  31.     push card
  32.     go to card "Student Requests" of this background
  33.   else if menuItem is "School (weekly)" OR menuItem is "Student" OR menuItem is "Student (weekly)" OR menuItem is "Timetable Options‚Ķ" OR menuItem is "Assign Required‚Ķ" OR menuItem is "Set Sections‚Ķ" OR menuItem is "Load Teachers‚Ķ" OR menuItem is "Create Timetable‚Ķ" OR menuItem is "Assign Students‚Ķ" OR menuItem is "Performance" then
  34.     push card
  35.     go to card menuItem of this background
  36.   end if
  37.   unlock screen
  38. end doMenu
  39.  
  40. on groupOne
  41.   if not hilite of target then
  42.     repeat with index = 1 to 8
  43.       set hilite of background button id index to false
  44.     end repeat
  45.     set hilite of target to true
  46.   else
  47.     push card
  48.     go to card line id of target of bg field "Student Name" of this bg
  49.   end if
  50. end groupOne
  51.  
  52. on groupTwo shiftKey
  53.   if the shiftKey is down OR shiftKey is down then
  54.     if icon of target is "5065" then
  55.       repeat with index = 9 to 16
  56.         set icon of background button id index to "Md Unchecked Box"
  57.       end repeat
  58.     else
  59.       repeat with index = 9 to 16
  60.         set icon of background button id index to "Md Checked Box"
  61.       end repeat
  62.     end if
  63.   else
  64.     if icon of target is "5065" then
  65.       set icon of target to "Md Unchecked Box"
  66.     else set icon of target to "Md Checked Box"
  67.   end if
  68. end groupTwo
  69.  
  70. on editText
  71.   repeat with index = 1 to 8
  72.     set visible of background button id index to not visible of background button id index
  73.   end repeat
  74.   repeat with index = 19 to 25
  75.     set lockText of background field id index to not lockText of background field id index
  76.   end repeat
  77. end editText
  78.  
  79. on newCard
  80.   moveTextFirst
  81. end newCard
  82.  
  83. on resetBackground
  84.   lock screen
  85.   set hilite of background button id 1 to true
  86.   repeat with index = 2 to 8
  87.     set hilite of background button id index to false
  88.   end repeat
  89.   repeat with index = 9 to 16
  90.     set icon of background button id index to "Md Unchecked Box"
  91.   end repeat
  92. end resetBackground
  93.  
  94. on moveTextFirst
  95.   --exit moveTextFirst
  96.   put bg field "Grade" of first card of this bg into bg field "Grade" of this card
  97.   put bg field "Student #" of first card of this bg into bg field "Student #" of this card
  98.   put bg field "Student Name" of first card of this bg into bg field "Student Name" of this card
  99.   put bg field "Program" of first card of this bg into bg field "Program" of this card
  100.   put bg field "Reqst" of first card of this bg into bg field "Reqst" of this card
  101.   put bg field "Sched" of first card of this bg into bg field "Sched" of this card
  102.   put bg field "Req'd" of first card of this bg into bg field "Req'd" of this card
  103. end moveTextFirst
  104.  
  105. on moveTextSecond
  106.   --exit moveTextSecond
  107.   put bg field "Grade" of second card of this bg into bg field "Grade" of this card
  108.   put bg field "Student #" of second card of this bg into bg field "Student #" of this card
  109.   put bg field "Student Name" of second card of this bg into bg field "Student Name" of this card
  110.   put bg field "Program" of second card of this bg into bg field "Program" of this card
  111.   put bg field "Reqst" of second card of this bg into bg field "Reqst" of this card
  112.   put bg field "Sched" of second card of this bg into bg field "Sched" of this card
  113.   put bg field "Req'd" of second card of this bg into bg field "Req'd" of this card
  114. end moveTextSecond
  115.  
  116. on moveTextThird
  117.   --exit moveTextThird
  118.   put bg field "Grade" of third card of this bg into bg field "Grade" of this card
  119.   put bg field "Student #" of third card of this bg into bg field "Student #" of this card
  120.   put bg field "Student Name" of third card of this bg into bg field "Student Name" of this card
  121.   put bg field "Program" of third card of this bg into bg field "Program" of this card
  122.   put bg field "Reqst" of third card of this bg into bg field "Reqst" of this card
  123.   put bg field "Sched" of third card of this bg into bg field "Sched" of this card
  124.   put bg field "Req'd" of third card of this bg into bg field "Req'd" of this card
  125. end moveTextThird
  126.  
  127. on moveTextLast
  128.   --exit moveTextLast
  129.   put bg field "Grade" of this card into bg field "Grade" of last card of this bg
  130.   put bg field "Student #" of this card into bg field "Student #" of last card of this bg
  131.   put bg field "Student Name" of this card into bg field "Student Name" of last card of this bg
  132.   put bg field "Program" of this card into bg field "Program" of last card of this bg
  133.   put bg field "Reqst" of this card into bg field "Reqst" of last card of this bg
  134.   put bg field "Sched" of this card into bg field "Sched" of last card of this bg
  135.   put bg field "Req'd" of this card into bg field "Req'd" of last card of this bg
  136. end moveTextLast
  137.  
  138.  
  139.  
  140. -- part 19 (field)
  141. -- low flags: 01
  142. -- high flags: 0001
  143. -- rect: left=8 top=78 right=174 bottom=33
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 0
  147. -- font id: 3
  148. -- text size: 9
  149. -- style flags: 0
  150. -- line height: 12
  151. -- part name: Grade
  152.  
  153.  
  154. -- part 20 (field)
  155. -- low flags: 01
  156. -- high flags: 0001
  157. -- rect: left=42 top=78 right=174 bottom=150
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 65535
  161. -- font id: 3
  162. -- text size: 9
  163. -- style flags: 0
  164. -- line height: 12
  165. -- part name: Student #
  166.  
  167.  
  168. -- part 21 (field)
  169. -- low flags: 01
  170. -- high flags: 0001
  171. -- rect: left=152 top=78 right=174 bottom=302
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 0
  175. -- font id: 3
  176. -- text size: 9
  177. -- style flags: 0
  178. -- line height: 12
  179. -- part name: Student Name
  180.  
  181.  
  182. -- part 22 (field)
  183. -- low flags: 01
  184. -- high flags: 0001
  185. -- rect: left=302 top=78 right=174 bottom=364
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 0
  189. -- font id: 3
  190. -- text size: 9
  191. -- style flags: 0
  192. -- line height: 12
  193. -- part name: Program
  194.  
  195.  
  196. -- part 23 (field)
  197. -- low flags: 01
  198. -- high flags: 0001
  199. -- rect: left=364 top=78 right=174 bottom=395
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 65535
  203. -- font id: 3
  204. -- text size: 9
  205. -- style flags: 0
  206. -- line height: 12
  207. -- part name: Reqst
  208.  
  209.  
  210. -- part 24 (field)
  211. -- low flags: 01
  212. -- high flags: 0001
  213. -- rect: left=394 top=78 right=174 bottom=425
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 65535
  217. -- font id: 3
  218. -- text size: 9
  219. -- style flags: 0
  220. -- line height: 12
  221. -- part name: Sched
  222.  
  223.  
  224. -- part 25 (field)
  225. -- low flags: 01
  226. -- high flags: 0001
  227. -- rect: left=424 top=78 right=174 bottom=455
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 65535
  231. -- font id: 3
  232. -- text size: 9
  233. -- style flags: 0
  234. -- line height: 12
  235. -- part name: Req'd
  236.  
  237.  
  238. -- part 1 (button)
  239. -- low flags: 00
  240. -- high flags: 4000
  241. -- rect: left=4 top=78 right=90 bottom=461
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: 
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   groupOne
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part 2 (button)
  258. -- low flags: 00
  259. -- high flags: 0000
  260. -- rect: left=4 top=90 right=102 bottom=461
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: 
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   groupOne
  272. end mouseUp
  273.  
  274.  
  275.  
  276. -- part 3 (button)
  277. -- low flags: 00
  278. -- high flags: 0000
  279. -- rect: left=4 top=102 right=114 bottom=461
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 0 / 0
  282. -- text alignment: 1
  283. -- font id: 0
  284. -- text size: 12
  285. -- style flags: 0
  286. -- line height: 16
  287. -- part name: 
  288. ----- HyperTalk script -----
  289. on mouseUp
  290.   groupOne
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 4 (button)
  296. -- low flags: 00
  297. -- high flags: 0000
  298. -- rect: left=4 top=114 right=126 bottom=461
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 1
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: 
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   groupOne
  310. end mouseUp
  311.  
  312.  
  313.  
  314. -- part 5 (button)
  315. -- low flags: 00
  316. -- high flags: 0000
  317. -- rect: left=4 top=126 right=138 bottom=461
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 0 / 0
  320. -- text alignment: 1
  321. -- font id: 0
  322. -- text size: 12
  323. -- style flags: 0
  324. -- line height: 16
  325. -- part name: 
  326. ----- HyperTalk script -----
  327. on mouseUp
  328.   groupOne
  329. end mouseUp
  330.  
  331.  
  332.  
  333. -- part 6 (button)
  334. -- low flags: 00
  335. -- high flags: 0000
  336. -- rect: left=4 top=138 right=150 bottom=461
  337. -- title width / last selected line: 0
  338. -- icon id / first selected line: 0 / 0
  339. -- text alignment: 1
  340. -- font id: 0
  341. -- text size: 12
  342. -- style flags: 0
  343. -- line height: 16
  344. -- part name: 
  345. ----- HyperTalk script -----
  346. on mouseUp
  347.   groupOne
  348. end mouseUp
  349.  
  350.  
  351.  
  352. -- part 7 (button)
  353. -- low flags: 00
  354. -- high flags: 0000
  355. -- rect: left=4 top=150 right=162 bottom=461
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 0 / 0
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: 
  364. ----- HyperTalk script -----
  365. on mouseUp
  366.   groupOne
  367. end mouseUp
  368.  
  369.  
  370.  
  371. -- part 8 (button)
  372. -- low flags: 00
  373. -- high flags: 0000
  374. -- rect: left=4 top=162 right=174 bottom=461
  375. -- title width / last selected line: 0
  376. -- icon id / first selected line: 0 / 0
  377. -- text alignment: 1
  378. -- font id: 0
  379. -- text size: 12
  380. -- style flags: 0
  381. -- line height: 16
  382. -- part name: 
  383. ----- HyperTalk script -----
  384. on mouseUp
  385.   groupOne
  386. end mouseUp
  387.  
  388.  
  389.  
  390. -- part 9 (button)
  391. -- low flags: 00
  392. -- high flags: 0000
  393. -- rect: left=469 top=78 right=90 bottom=483
  394. -- title width / last selected line: 0
  395. -- icon id / first selected line: 5064 / 5064
  396. -- text alignment: 1
  397. -- font id: 3
  398. -- text size: 10
  399. -- style flags: 0
  400. -- line height: 13
  401. -- part name: 
  402. ----- HyperTalk script -----
  403. on mouseUp shiftKey
  404.   groupTwo shiftKey
  405. end mouseUp
  406.  
  407.  
  408. -- part 10 (button)
  409. -- low flags: 00
  410. -- high flags: 0000
  411. -- rect: left=469 top=90 right=102 bottom=483
  412. -- title width / last selected line: 0
  413. -- icon id / first selected line: 5064 / 5064
  414. -- text alignment: 1
  415. -- font id: 3
  416. -- text size: 10
  417. -- style flags: 0
  418. -- line height: 13
  419. -- part name: 
  420. ----- HyperTalk script -----
  421. on mouseUp shiftKey
  422.   groupTwo shiftKey
  423. end mouseUp
  424.  
  425.  
  426. -- part 11 (button)
  427. -- low flags: 00
  428. -- high flags: 0000
  429. -- rect: left=469 top=102 right=114 bottom=483
  430. -- title width / last selected line: 0
  431. -- icon id / first selected line: 5064 / 5064
  432. -- text alignment: 1
  433. -- font id: 3
  434. -- text size: 10
  435. -- style flags: 0
  436. -- line height: 13
  437. -- part name: 
  438. ----- HyperTalk script -----
  439. on mouseUp shiftKey
  440.   groupTwo shiftKey
  441. end mouseUp
  442.  
  443.  
  444. -- part 12 (button)
  445. -- low flags: 00
  446. -- high flags: 0000
  447. -- rect: left=469 top=114 right=126 bottom=483
  448. -- title width / last selected line: 0
  449. -- icon id / first selected line: 5064 / 5064
  450. -- text alignment: 1
  451. -- font id: 3
  452. -- text size: 10
  453. -- style flags: 0
  454. -- line height: 13
  455. -- part name: 
  456. ----- HyperTalk script -----
  457. on mouseUp shiftKey
  458.   groupTwo shiftKey
  459. end mouseUp
  460.  
  461.  
  462. -- part 13 (button)
  463. -- low flags: 00
  464. -- high flags: 0000
  465. -- rect: left=469 top=126 right=138 bottom=483
  466. -- title width / last selected line: 0
  467. -- icon id / first selected line: 5064 / 5064
  468. -- text alignment: 1
  469. -- font id: 3
  470. -- text size: 10
  471. -- style flags: 0
  472. -- line height: 13
  473. -- part name: 
  474. ----- HyperTalk script -----
  475. on mouseUp shiftKey
  476.   groupTwo shiftKey
  477. end mouseUp
  478.  
  479.  
  480. -- part 14 (button)
  481. -- low flags: 00
  482. -- high flags: 0000
  483. -- rect: left=469 top=138 right=150 bottom=483
  484. -- title width / last selected line: 0
  485. -- icon id / first selected line: 5064 / 5064
  486. -- text alignment: 1
  487. -- font id: 3
  488. -- text size: 10
  489. -- style flags: 0
  490. -- line height: 13
  491. -- part name: 
  492. ----- HyperTalk script -----
  493. on mouseUp shiftKey
  494.   groupTwo shiftKey
  495. end mouseUp
  496.  
  497.  
  498. -- part 15 (button)
  499. -- low flags: 00
  500. -- high flags: 0000
  501. -- rect: left=469 top=150 right=162 bottom=483
  502. -- title width / last selected line: 0
  503. -- icon id / first selected line: 5064 / 5064
  504. -- text alignment: 1
  505. -- font id: 3
  506. -- text size: 10
  507. -- style flags: 0
  508. -- line height: 13
  509. -- part name: 
  510. ----- HyperTalk script -----
  511. on mouseUp shiftKey
  512.   groupTwo shiftKey
  513. end mouseUp
  514.  
  515.  
  516. -- part 16 (button)
  517. -- low flags: 00
  518. -- high flags: 0000
  519. -- rect: left=469 top=162 right=174 bottom=483
  520. -- title width / last selected line: 0
  521. -- icon id / first selected line: 5064 / 5064
  522. -- text alignment: 1
  523. -- font id: 3
  524. -- text size: 10
  525. -- style flags: 0
  526. -- line height: 13
  527. -- part name: 
  528. ----- HyperTalk script -----
  529. on mouseUp shiftKey
  530.   groupTwo shiftKey
  531. end mouseUp
  532.  
  533.  
  534. -- part 17 (button)
  535. -- low flags: 00
  536. -- high flags: 0002
  537. -- rect: left=492 top=93 right=109 bottom=507
  538. -- title width / last selected line: 0
  539. -- icon id / first selected line: 0 / 0
  540. -- text alignment: 1
  541. -- font id: 3
  542. -- text size: 10
  543. -- style flags: 0
  544. -- line height: 13
  545. -- part name: 
  546.  
  547.  
  548. -- part 18 (button)
  549. -- low flags: 00
  550. -- high flags: 0000
  551. -- rect: left=492 top=93 right=159 bottom=506
  552. -- title width / last selected line: 0
  553. -- icon id / first selected line: 0 / 0
  554. -- text alignment: 1
  555. -- font id: 3
  556. -- text size: 10
  557. -- style flags: 0
  558. -- line height: 13
  559. -- part name: 
  560.